﻿Imports System
Imports System.Windows.Forms
Imports Castle.ActiveRecord
Imports Castle.ActiveRecord.Framework
Imports Castle.ActiveRecord.Framework.Config

Namespace Model
    Public Class ActiveRecordStartModel

        Public Shared Sub Main()
            Dim source As XmlConfigurationSource = New XmlConfigurationSource("AppConfig.xml")

            ' Post     -> Blog
            ' Itens    -> Pedido 
            ' BelongTo -> HasMany

            ' BelongTo tem IList do tipo da classe
            ' HasMany tem IList Array
            ' Pessoa controle o relacionamento do ramo então não tem inverse:=True, somente no ramo

            ' Lista das classes/tabelas
            ActiveRecordStarter.Initialize(source, _
                GetType(NfAdicao), _
                GetType(Cfop), _
                GetType(Contato), _
                GetType(Departamento), _
                GetType(Endereco), _
                GetType(Estado), _
                GetType(Grupo), _
                GetType(Mercado), _
                GetType(Modulo), _
                GetType(Municipio), _
                GetType(Ncm), _
                GetType(Nf), _
                GetType(NfPesquisa), _
                GetType(Nfitem), _
                GetType(Nfretorno), _
                GetType(Pagamento), _
                GetType(Pais), _
                GetType(Perfil), _
                GetType(Perfilpermissao), _
                GetType(Permissao), _
                GetType(Pessoa), _
                GetType(PessoaPesquisa), _
                GetType(Produto), _
                GetType(ProdutoPesquisa), _
                GetType(Ramo), _
                GetType(Tr_ICMS_Modalidade), _
                GetType(Tr_Situac_Trib), _
                GetType(Tr_ICMS_Origem), _
                GetType(Unidade), _
                GetType(Produto), _
                GetType(Estoque), _
                GetType(EstoquePesquisa), _
                GetType(EstoqueLocal) _
                )
            '
            'GetType(Pessoaramo), _

            'MessageBox.Show("Inicializado ActiveRecord")

            'If (MessageBox.Show("Deseja criar as tabelas no banco de dados?", "Tabelas", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) Then
            '    ActiveRecordStarter.CreateSchema()
            'End If

        End Sub

    End Class
End Namespace